home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / tmg107.zip / MAGIC.ZIP / CONFIG.SCR < prev    next >
Text File  |  1996-09-01  |  2KB  |  89 lines
  1. @#DEFINE
  2.   Location "tConfiguration Menu"
  3. @#COMBAT
  4.   If ^VR01 == ENABLED
  5.     AddFlag CHAT_COMBAT DISABLED 2 C
  6.   EndIf
  7.   If ^VR01 == DISABLED
  8.     AddFlag CHAT_COMBAT ENABLED 2 C
  9.   EndIf
  10.   Return
  11. @#PAGE
  12.   If ^VR02 == ENABLED
  13.     AddFlag CHAT_PAGE DISABLED 2 C
  14.   EndIf
  15.   If ^VR02 == DISABLED
  16.     AddFlag CHAT_PAGE ENABLED 2 C
  17.   EndIf
  18.   Return
  19. @#ECHO
  20.   If ^VR03 == ENABLED
  21.     AddFlag CHAT_ECHO DISABLED 2 C
  22.   EndIf
  23.   If ^VR03 == DISABLED
  24.     AddFlag CHAT_ECHO ENABLED 2 C
  25.   EndIf
  26.   Return
  27. @#EXPERT
  28.   If ^VR04 == ENABLED
  29.     Set ^CX02 0
  30.   EndIf
  31.   If ^VR04 == DISABLED
  32.     Set ^CX02 1
  33.   EndIf
  34.   Return
  35. @#CONFIG_MENU
  36. 1234L
  37. `c                           `%Configuration Menu:
  38. `#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  39. `3
  40. `3  (`#^MC01`3)Chat Combat `%: ^VR01
  41. `3  (`#^MC02`3)Chat Page   `%: ^VR02
  42. `3  (`#^MC03`3)Chat Echo   `%: ^VR03
  43. `3  (`#^MC04`3)Expert Mode `%: ^VR04
  44. `3  (`4^MC05`3)Leave Menu
  45. @#MAIN
  46.   FlagValue ^VR01 CHAT_COMBAT C
  47.   FlagValue ^VR02 CHAT_PAGE C
  48.   FlagValue ^VR03 CHAT_ECHO C
  49.   If ^VR01 == -1
  50.     Set ^VR01 DISABLED
  51.   EndIf
  52.   If ^VR02 == -1
  53.     Set ^VR02 DISABLED
  54.   EndIf
  55.   If ^VR03 == -1
  56.     Set ^VR03 DISABLED
  57.   EndIf
  58.   If ^CX02 == 1
  59.     Set ^VR04 ENABLED
  60.   EndIf
  61.   If ^CX02 == 0
  62.     Set ^VR04 DISABLED
  63.   EndIf
  64.   Menu Config_Menu
  65.   DefaultCommand L
  66.   Writeln ""
  67.   Writeln "   `$Configuration Menu : "
  68.   ReadMenuCommands ^VR20
  69.   Writeln "^VR20"
  70.   If ^VR20 == L
  71.     Halt
  72.   EndIf
  73.   If ^VR20 == 1
  74.     Gosub Combat
  75.   EndIf
  76.   If ^VR20 == 2
  77.     Gosub Page
  78.   EndIf
  79.   If ^VR20 == 3
  80.     Gosub Echo
  81.   EndIf
  82.   If ^VR20 == 4
  83.     Gosub Expert
  84.   EndIf
  85.   If ^VR20 == ?
  86.     DisplayMenu
  87.   EndIf
  88. @#
  89.